`nocb` <-
function(x)rev(locf(rev(x)))

